home *** CD-ROM | disk | FTP | other *** search
/ Virtual Top Model / Virtual Top Model - Disc 1.iso / modulos / mod-3.dxr / 00008_boton video.ls < prev    next >
Encoding:
Text File  |  1997-04-01  |  818 b   |  35 lines
  1. on mouseUp
  2.   global bVideoNormal
  3.   if rollOver(11) then
  4.     if bVideoNormal then
  5.       set sApa to "Fd_Bt_A/2"
  6.     else
  7.       set sApa to "Fd_Bt_A/2"
  8.     end if
  9.     set the member of sprite 11 to member sApa of castLib "elementos graficos"
  10.     puppetSprite(11, 0)
  11.     updateStage()
  12.     set bVideoNormal to not bVideoNormal
  13.   end if
  14. end
  15.  
  16. on mouseDown
  17.   global bVideoNormal
  18.   if bVideoNormal then
  19.     set sApa to "Fd_Bt_A/2"
  20.     set sIlu to "Fd_Bt_B/2"
  21.   else
  22.     set sApa to "Fd_Bt_A/2"
  23.     set sIlu to "Fd_Bt_B/2"
  24.   end if
  25.   repeat while the stillDown
  26.     puppetSprite(11, 1)
  27.     if rollOver(11) then
  28.       set the member of sprite 11 to member sIlu of castLib "elementos graficos"
  29.     else
  30.       set the member of sprite 11 to member sApa of castLib "elementos graficos"
  31.     end if
  32.     updateStage()
  33.   end repeat
  34. end
  35.